home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / bb2000 / files / SlMov5.dxr / 00001.ls next >
Encoding:
Text File  |  1998-02-20  |  2.0 KB  |  78 lines
  1. global gCustompath, gWindowspath, gDirutil, gIniobj
  2.  
  3. on autoInitVideo myVideo
  4.   closeVideo()
  5.   init()
  6.   install()
  7.   openVideo(myVideo)
  8.   remove()
  9.   close()
  10. end
  11.  
  12. on openVideo myVideo
  13.   mci("open" && gCustompath & myVideo & ".icv" && "style popup alias ICVvideo")
  14.   if chars(the result, 5, 9) = "Error" then
  15.     abortVideo()
  16.   else
  17.     set myX to the stageLeft + 160
  18.     set myY to the stageTop + 120
  19.     mci("put ICVvideo window at" && myX && myY && "320 240")
  20.     mci("play ICVvideo")
  21.     cursor(-1)
  22.   end if
  23. end
  24.  
  25. on abortVideo
  26.   go("abort")
  27. end
  28.  
  29. on autoVideoStopped
  30.   mci("status ICVvideo mode")
  31.   if the result = "stopped" then
  32.     return 1
  33.   else
  34.     return 0
  35.   end if
  36. end
  37.  
  38. on closeVideo
  39.   mci("close ICVvideo")
  40.   mci("close all")
  41. end
  42.  
  43. on init
  44.   openXLib(gCustompath & "Dirutil")
  45.   openXLib(gCustompath & "Iniobj")
  46.   set gDirutil to DirUtil(mnew)
  47.   set gIniobj to IniObj(mnew)
  48. end
  49.  
  50. on install
  51.   CopyFile(gWindowspath & "system.ini", gWindowspath & "system.bak")
  52.   CopyFile(gWindowspath & "win.ini", gWindowspath & "win.bak")
  53.   gIniobj(mWriteStr, gWindowspath & "system.ini", "mci", "ICVVideo", "mciavi.drv")
  54.   gIniobj(mWriteStr, gWindowspath & "win.ini", "extensions", "icv", "mplayer.exe ^.icv")
  55.   gIniobj(mWriteStr, gWindowspath & "win.ini", "embedding", "ICVFile", "Video Clip,Video Clip,C:\mplayer.exe /icv,picture")
  56.   gIniobj(mWriteStr, gWindowspath & "win.ini", "embedding", "AVIFile", EMPTY)
  57.   gIniobj(mWriteStr, gWindowspath & "win.ini", "mci extensions", "icv", "AVIVideo")
  58.   gIniobj(mWriteBool, gWindowspath & "win.ini", "mciavi", "skipframes", 1)
  59. end
  60.  
  61. on remove
  62.   CopyFile(gWindowspath & "win.bak", gWindowspath & "win.ini")
  63.   CopyFile(gWindowspath & "system.bak", gWindowspath & "system.ini")
  64.   DeleteFile(gWindowspath & "win.bak")
  65.   DeleteFile(gWindowspath & "system.bak")
  66. end
  67.  
  68. on close
  69.   if objectp(gDirutil) then
  70.     gDirutil(mdispose)
  71.   end if
  72.   if objectp(gIniobj) then
  73.     gIniobj(mdispose)
  74.   end if
  75.   closeXLib(gCustompath & "Dirutil")
  76.   closeXLib(gCustompath & "Iniobj")
  77. end
  78.